home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / tpcmen.zip / LBAR.PRG next >
Text File  |  1990-02-15  |  918b  |  25 lines
  1. **************************************************************
  2. *       NAME: LBAR.PRG
  3. *     AUTHOR: STEVE STAMM
  4. *      FILES: TPCMENU.BIN
  5. *  COPYRIGHT: STEVE STAMM COPYRIGHT (C) 1988
  6. *    PURPOSE: DRIVER FOR TPCMENU.BIN
  7. * PARAMETERS: AS FOLLOWS:
  8. *************************************************************
  9. parameter choice, vert_space, row, collum, rows, collums, total, ;
  10.    seperater, lb_width, backgr, bar_color
  11. vert_space = vert_space + 1
  12. lbar   = chr(choice) + chr(vert_space) + chr(row+1)+;
  13.    chr(collum+1) + chr(rows) + chr(collums)+;
  14.    chr(total) + chr(seperater) + chr(lb_width)+;
  15.    chr(backgr) + chr(bar_color) + other_key + space(lb_width)
  16. call tpcmenu with lbar
  17. choice= asc(substr(lbar,1,1))
  18. key   = asc(substr(lbar,2,1))
  19. under = rtrim(substr(lbar,3,lb_width))
  20. vert_space = 0
  21. return
  22. * EOF: LBAR.PRG
  23. ************************************************************
  24. *: EOF: LBAR.PRG
  25.